home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 …SCII & the Runetime Code / ADC Developer CD (1992-07) (''Butch ASCII And The Runtime Code'')_iso / Dev.CD 199207.iso / Development Platforms / Apple II / DTS Apple II Sample Code / IR 2.0 / Source Code / Interfaces / IR.p < prev   
Encoding:
Text File  |  1992-02-25  |  2.4 KB  |  119 lines  |  [TEXT/MPS ]

  1. {******************************************************************************
  2. *
  3. * IR.p -- Pascal interface file for IR v2.0
  4. *
  5. * by Matt Deatherage
  6. *
  7. * Copyright 1991-1992, Apple Computer, Inc.  All rights reserved.
  8. *
  9. * Release history:
  10. *
  11. * 2.0a3        Matt Deatherage (12/11/91)
  12. *
  13. * First release.
  14. *
  15. * 2.0b1        Matt Deatherage (02/19/92)
  16. *
  17. * Added IRInfoRecord to have the newly-returned user ID.
  18. *
  19. * 2.0b3        Matt Deatherage (02/21/92)
  20. *
  21. * Changed the copyright dates.
  22. *
  23. * 2.0f1        Matt Deatherage (02/24/92)
  24. *
  25. * Changed IRInputRecord (again) to reflect the version longint now in it.
  26. *
  27. * 2.0            Matt Deatherage (02/25/92)
  28. *
  29. * Changed relative numbers to be absolute.
  30. *
  31. *
  32. ******************************************************************************}
  33.  
  34. {[j=12-/32/80!,o=95,a-]}         {PasMat options}
  35. UNIT IR;
  36.  
  37.     INTERFACE
  38.  
  39.         USES TYPES,GSOS;
  40.  
  41.         PROCEDURE dummy;
  42.  
  43.         CONST
  44.             {IR Requests}
  45.             irRequestBase = $C300;
  46.  
  47.             askIRStartUp = $C300; { don't call this }
  48.             askIRAreYouThere = $C301;
  49.             askIRToInstall = $C302;
  50.             askIRGetPrefs = $C303;
  51.             askIRSetPrefs = $C304;
  52.             askIRDoPrefs = $C305;
  53.  
  54.             { Error codes }
  55.  
  56.             irErrorMask = $FF00;
  57.             irErrorBase = $C300;
  58.  
  59.             irDuplicateExists = $C301;
  60.             irDuplicateWontDie = $C302;
  61.             irNoFinder    = $C303;
  62.             irGSOSNotAvail = $C304;
  63.             irNotIRFile = $C305;
  64.             irBusy        = $C306;
  65.             irCantPrint = $C307;
  66.  
  67.             { flag bits }
  68.  
  69.             irDefaultPrefs = 0;
  70.             irSpecialPrefs = $0001;
  71.             irDoDiskPrefs = $0001;
  72.             irNoDuplicates = $0002;
  73.             irKillDuplicates = $0004;
  74.             irDontOpenNDAs = $0008;
  75.             irKillFinderExts = $0010;
  76.             irCopyExistNDAs = $0020;
  77.             irWaitOpenFailed = $0040;
  78.             irIgnoreProblems = $0080;
  79.  
  80.         TYPE
  81.  
  82.             startUpRecord = RECORD
  83.                                      userID: integer;
  84.                                  END;
  85.  
  86.             IRInputRecord = RECORD
  87.                                       recvCount: integer;
  88.                                      userID : integer;
  89.                                      version : longint;
  90.                                 END;
  91.             
  92.             askInstallInputRecord = RECORD
  93.                                                 flags: integer;
  94.                                                 pathname: gsstring255ptr;
  95.                                                 filetype: integer;
  96.                                                 auxtype: longint;
  97.                                             END;
  98.  
  99.             askInstallOutputRecord = RECORD
  100.                                                  recvCount: integer;
  101.                                                  irError: integer;
  102.                                                  userID: integer;
  103.                                              END;
  104.  
  105.             askGetPrefsOutputRecord = RECORD
  106.                                                   recvCount: integer;
  107.                                                   irError: integer;
  108.                                                   preferences: integer;
  109.                                               END;
  110.  
  111.             askSetPrefsOutputRecord = RECORD
  112.                                                   recvCount: integer;
  113.                                                   irError: integer;
  114.                                               END;
  115.                                               
  116.     IMPLEMENTATION
  117.  
  118. END.
  119.